#########################################################################################
# Description:  Test script to run via doscript
# Created       Tue Mar 30 06:49:38 2010
# svn id        $Id: testdoscript.pl 2 2010-03-30 07:30:05Z mark.dootson $
# Copyright:    Copyright (c) 2010 Mark Dootson
# Licence:      This program is free software; you can redistribute it 
#               and/or modify it under the same terms as Perl itself
#########################################################################################

use strict;
use warnings;

my @params = @ARGV;

print 'My arguments are : ' . join(', ', @params);
#line 1
warn 'The argument count was : ' . scalar @params;


1;
